home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / Texx02.sea / Texx Folder / Profile.exec < prev    next >
Text File  |  1992-08-18  |  2KB  |  53 lines
  1. /* Profile.exec */
  2. say 'Profile.exec';
  3. say 'Date of last change - 08/18/92';
  4. /* List the current Mac operating environment */
  5. /* Check for 32-bit addressing */
  6. if Addr32Bit() then
  7.      say 'Running with 32-bit addressing';
  8. else
  9.      say 'Running with 24-bit addressing';
  10. /* List the current boot drive */
  11. say 'The boot drive is ' || BootDrive();
  12. /* List the currently mounted volumes */
  13. say 'The following volumes are currently mounted:';
  14. volumes();
  15. do i = 2 to volume.1 + 1
  16.      say '     ' || volume.i;
  17. end;
  18. /* List the real memory installed */
  19. say 'The real memory installed is ' || RealMemory();
  20. /* Check for virtual memory */
  21. if VirtualMemory() then
  22. do
  23.      say 'Running with Virtual Memory';
  24.      say 'The total memory is ' || TotalMemory();
  25. end;
  26. else
  27.      say 'Running with real memory only';
  28. /* List the active applications */
  29. say 'The following applications are currently active:';
  30. Processes();
  31. do i = 2 to Process.1 + 1
  32.      say '     ' || Process.i;
  33. end;
  34. /* target the finder for external commands */
  35. address finder;
  36. if rc <> 0 then   /* Address failed, inform user */
  37.      say 'Profile.exec -- Address finder failed';
  38. else
  39. do   /* Address successfull */
  40.      /* If MS Word temp files exist, move them to the trash */
  41.      /* Set up a path to the system folder */
  42.      path BootDrive() || 'system folder';
  43.      do i = 1 to 4
  44.           if FileExists( 'Word Temp ' || i ) then
  45.                Move Selection 'Word Temp ' || i 0 0 BootDrive() || 'Trash';
  46.      end;
  47.      /* now empty the trash */
  48.         empty trash;
  49.      if rc <> 0 then
  50.          say 'Profile.exec -- Empty Trash failed';
  51. end;
  52. /* add other commands here */
  53. say 'End of Profile.exec';